home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / pascal / alrmtpw.exe / ALARDLG.PAS < prev    next >
Pascal/Delphi Source File  |  1991-09-09  |  5KB  |  143 lines
  1. { File:         AlarDlg.pas }
  2. { Created:      Mon Sep 09 00:25:29 1991 }
  3. { Description:  Dialog processing functions for "Alarm" }
  4. {               Windows application }
  5.  
  6. {{ STARTBLOCK   File Version Information (REGENERATE) }
  7. { Regenerated:  Mon Sep 09 00:25:29 1991 }
  8. { Skeleton by:  Winpro/3, a product from Louis J. Cutrona, Jr. }
  9. {               tpw.skl version 0.05 }
  10. {{ ENDBLOCK }
  11.  
  12. unit AlarDlg ;
  13.  
  14. interface
  15.  
  16. uses
  17.   WinTypes,
  18.   WinProcs,
  19.   Strings,
  20.   WObjects,
  21.   StdWnds,
  22.   AlarRC,
  23.   AlarGbl ;
  24.  
  25.   { Note: Dialog data transfer buffers are defined and initialized }
  26.   { in unit AlarGbl.                                               }
  27.  
  28. type
  29.   tpdlg_SetAlarmTimeDialog = ^tdlg_SetAlarmTimeDialog ;
  30.   tdlg_SetAlarmTimeDialog = object( TDialog )
  31.     { Pointers for dialog control objects }
  32.     pET_MONTH: PEdit ;     { Edittext }
  33.     pET_DAY: PEdit ;     { Edittext }
  34.     pET_YEAR: PEdit ;     { Edittext }
  35.     pET_HOUR: PEdit ;     { Edittext }
  36.     pET_MINUTE: PEdit ;     { Edittext }
  37.     pEM_MESSAGE: PEdit ;     { Edittext }
  38.  
  39.     constructor Init( pwoParent: PWindowsObject; lpszRsrcId: PChar ) ;
  40.  
  41.     { Child-ID-based methods for dialog controls }
  42.     procedure   ET_MONTHMethod( var Msg: TMessage );     { Edit text }
  43.                 virtual id_First + ET_MONTH ;
  44.     procedure   ET_DAYMethod( var Msg: TMessage );     { Edit text }
  45.                 virtual id_First + ET_DAY ;
  46.     procedure   ET_YEARMethod( var Msg: TMessage );     { Edit text }
  47.                 virtual id_First + ET_YEAR ;
  48.     procedure   ET_HOURMethod( var Msg: TMessage );     { Edit text }
  49.                 virtual id_First + ET_HOUR ;
  50.     procedure   ET_MINUTEMethod( var Msg: TMessage );     { Edit text }
  51.                 virtual id_First + ET_MINUTE ;
  52.     procedure   EM_MESSAGEMethod( var Msg: TMessage );     { Edit text }
  53.                 virtual id_First + EM_MESSAGE ;
  54.     end ;
  55.  
  56. type
  57.   tpdlg_AboutAlarmDialog = ^tdlg_AboutAlarmDialog ;
  58.   tdlg_AboutAlarmDialog = object( TDialog )
  59.     { Pointers for dialog control objects }
  60.  
  61.     constructor Init( pwoParent: PWindowsObject; lpszRsrcId: PChar ) ;
  62.  
  63.     { Child-ID-based methods for dialog controls }
  64.     end ;
  65.  
  66.  
  67. implementation
  68.  
  69. { --------------------------------------------------------------------------- }
  70. {{ STARTBLOCK Implementation of methods for dialog dlg_SetAlarmTime (REGENERATE) }
  71.  
  72. constructor tdlg_SetAlarmTimeDialog.Init( pwoParent: PWindowsObject; lpszRsrcId: PChar ) ;
  73. begin
  74.   { First, do overall initialization }
  75.   TDialog.Init( pwoParent, lpszRsrcId ) ;
  76.  
  77.   { Create control objects in same order as defined in transfer buffer }
  78.   New( pET_MONTH, InitResource( @Self, ET_MONTH,
  79.     SizeOf( dlg_SetAlarmTimeTransferBuf.szET_MONTH ) ) ) ;     { Edittext }
  80.   New( pET_DAY, InitResource( @Self, ET_DAY,
  81.     SizeOf( dlg_SetAlarmTimeTransferBuf.szET_DAY ) ) ) ;     { Edittext }
  82.   New( pET_YEAR, InitResource( @Self, ET_YEAR,
  83.     SizeOf( dlg_SetAlarmTimeTransferBuf.szET_YEAR ) ) ) ;     { Edittext }
  84.   New( pET_HOUR, InitResource( @Self, ET_HOUR,
  85.     SizeOf( dlg_SetAlarmTimeTransferBuf.szET_HOUR ) ) ) ;     { Edittext }
  86.   New( pET_MINUTE, InitResource( @Self, ET_MINUTE,
  87.     SizeOf( dlg_SetAlarmTimeTransferBuf.szET_MINUTE ) ) ) ;     { Edittext }
  88.   New( pEM_MESSAGE, InitResource( @Self, EM_MESSAGE,
  89.     SizeOf( dlg_SetAlarmTimeTransferBuf.szEM_MESSAGE ) ) ) ;     { Edittext }
  90.   TransferBuffer := @dlg_SetAlarmTimeTransferBuf ;
  91. end ;  { tdlg_SetAlarmTimeDialog.Init }
  92.  
  93. { Child-ID-based methods for dialog controls }
  94.  
  95. procedure tdlg_SetAlarmTimeDialog.ET_MONTHMethod( var Msg: TMessage );     { Edit text }
  96. begin
  97. end ;
  98.  
  99. procedure tdlg_SetAlarmTimeDialog.ET_DAYMethod( var Msg: TMessage );     { Edit text }
  100. begin
  101. end ;
  102.  
  103. procedure tdlg_SetAlarmTimeDialog.ET_YEARMethod( var Msg: TMessage );     { Edit text }
  104. begin
  105. end ;
  106.  
  107. procedure tdlg_SetAlarmTimeDialog.ET_HOURMethod( var Msg: TMessage );     { Edit text }
  108. begin
  109. end ;
  110.  
  111. procedure tdlg_SetAlarmTimeDialog.ET_MINUTEMethod( var Msg: TMessage );     { Edit text }
  112. begin
  113. end ;
  114.  
  115. procedure tdlg_SetAlarmTimeDialog.EM_MESSAGEMethod( var Msg: TMessage );     { Edit text }
  116. begin
  117. end ;
  118.  
  119. {{ ENDBLOCK }
  120. { --------------------------------------------------------------------------- }
  121. {{ STARTBLOCK Implementation of methods for dialog dlg_AboutAlarm (REGENERATE) }
  122.  
  123. constructor tdlg_AboutAlarmDialog.Init( pwoParent: PWindowsObject; lpszRsrcId: PChar ) ;
  124. begin
  125.   { First, do overall initialization }
  126.   TDialog.Init( pwoParent, lpszRsrcId ) ;
  127.  
  128.   { Create control objects in same order as defined in transfer buffer }
  129.   TransferBuffer := @dlg_AboutAlarmTransferBuf ;
  130. end ;  { tdlg_AboutAlarmDialog.Init }
  131.  
  132. { Child-ID-based methods for dialog controls }
  133.  
  134. {{ ENDBLOCK }
  135. { --------------------------------------------------------------------------- }
  136.  
  137. begin
  138.   { Unit AlarDlg initialization, if any }
  139. end.
  140.  
  141.  
  142. {   E N D   O F   F I L E   AlarDlg   }
  143.